p <- d2 |>group_by(ar, landsvaedi, aldur) |>summarise(vidvera =sum(vidvera * hlutf),.groups ="drop") |>inner_join( d1 |>pivot_wider(names_from = fjoldi, values_from = value) |> janitor::clean_names(),by =c("ar", "landsvaedi", "aldur") ) |>mutate(vidvera_hlutf = vidvera * hlutfall_af_argangi /100) |>filter(landsvaedi!="Höfuðborgarsvæði", aldur ==1) |>ggplot(aes(ar, vidvera_hlutf, fill = landsvaedi)) +geom_area(position ="identity", alpha =0.5) +scale_y_continuous(labels =label_number(suffix =" klst"),limits =c(0, 8)) +scale_fill_brewer(type ="qual", palette ="Set1") +coord_cartesian(expand =FALSE) +theme_half_open() +labs(x =NULL,y =NULL,fill =NULL,lty =NULL,col =NULL,title ="Viðvera á dag per barn í árgangi (12-24 mánaða) í leikskólum í <b style='color:#377eb8'>Reykjavík</b> og <b style='color:#e41a1c'>öðrum sveitarfélögum höfuðborgarsvæðis</b>",subtitle ="Meðalbarn utan Reykjavíkur var að jafnaði 30 mín lengra í leikskóla en meðalbarn innan Reykjavíkur árið 2020 (að því gefnu að leikskólaviðvera væri jafndreifð yfir öll börn).") +theme(legend.position ="none",plot.margin =margin(t =5, r =15, b =5, l =5),plot.title =element_markdown())p